home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / render.lha / RendTest.c < prev    next >
C/C++ Source or Header  |  1993-01-07  |  971b  |  46 lines
  1. #include <proto/all.h>
  2. #include <opal/opallib.h>
  3. #include <graphics/gfxbase.h>
  4. #include <stdio.h>
  5. #include <stdlib.h>
  6.  
  7. #include "renderer.c"
  8.  
  9. struct GfxBase *GfxBase;
  10.  
  11.     /* external functions (int Renderer.c) */
  12.  
  13. BOOL Open_OpalScreen (ULONG Modes);
  14. void Render_To_Opal (long Y, long Width, long Lines,
  15.             UBYTE *Red, UBYTE *Green, UBYTE *Blue, BOOL Chunky);
  16. void Opal_Render_Finished (void);
  17. void Close_Opal (void);
  18.  
  19.  
  20. UBYTE RedPlane[1000];
  21. UBYTE GreenPlane[1000];
  22. UBYTE BluePlane[1000];
  23.  
  24. void main (void)
  25. {
  26.    register long x,y;
  27.  
  28.     GfxBase = (struct GfxBase *) OpenLibrary ("graphics.library",0);
  29.     if (!Open_OpalScreen (HIRES24|ILACE24|OVERSCAN24))
  30.         { puts  ("Can't open opalvision screeen\n");
  31.           exit (0);
  32.         }
  33.     for (y=0; y<400; y++)
  34.         { for (x=0; x<640; x++)
  35.             { RedPlane[x] = x;
  36.               GreenPlane[x] = 255-x;
  37.               BluePlane[x] = y+x;
  38.             }
  39.           Render_To_Opal (y,640,1,RedPlane,GreenPlane,BluePlane,FALSE);
  40.         }
  41.     Opal_Render_Finished ();
  42.     Delay (100L);
  43.     Close_Opal ();
  44. }
  45.  
  46.